home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / assignid.scp < prev    next >
Text File  |  1994-08-14  |  1KB  |  55 lines
  1.  
  2. // THIS ASSIGNS ALL OF THE NUMBERS USED IN VARIOUS MONITORS AS
  3. // CODE NUMBERS.
  4.  
  5. { ASSIGNRANDOMIDS
  6.     P        ~ÇÇ   
  7.  
  8.     // CAYNAN'S ACCESS # (DIFFERENT EVERY GAME)
  9.     // RANDOM NUMBERS FOR EACH DIGIT
  10.     ^ç╖                  = @Çà     0 9
  11.     ^ç╕                  = @Çà     0 9
  12.     ^ç╣                  = @Çà     0 9
  13.     ^ç║                  = @Çà     0 9
  14.     ^ç╗                  = @Çà     0 9
  15.  
  16.     // ESCHER ID VARIABLES
  17.     ^ïå                  = @Çà     0 9
  18.     ^ïç                  = @Çà     0 9
  19.     ^ïê                  = @Çà     0 9
  20.     ^ïë                  = @Çà     0 9
  21.     ^ïè                  = @Çà     0 9
  22.  
  23.     // REACTOR ID VARIABLES
  24.     ^ïî                  = 0
  25.  
  26.     // FIRST, MAKE A NUMBER THAT CONTAINS THREE OF THE FIVE
  27.     // POSSIBLE NUMBERS, LIKE 1,4,5  -KLD    
  28.     :MAKEREACTORID
  29.     a      ( ^ïî                 , @Çà    ( 1, 5 ) )
  30.     ~ÇÇ    = @Ç»       ( ^ïî                 , 1, 5 )
  31.     I ( ~ÇÇ    < 3 ) THEN
  32.         J    #Çü          
  33.  
  34.     // NOW, MAKE A NUMBER THAT CAN BE DISPLAYED THAT SHOWS THE
  35.     // THREE NUMBERS IN ORDER, LOWEST NUMBER FIRST, LIKE 145.  -KLD
  36.     ^ïì                = 0
  37.     ~ÇÇ    = 1
  38.  
  39.     :MAKEEQUIVALENTNUMBER
  40.     I ( @ÇÅ     ( ^ïî                 , ~ÇÇ    ) == 1 ) THEN
  41.         {
  42.         ^ïì                *= 10
  43.         ^ïì                += ~ÇÇ   
  44.         }
  45.  
  46.     ~ÇÇ    += 1
  47.     I ( ~ÇÇ    <= 5 ) THEN 
  48.         J    #Çé                 
  49.  
  50.  
  51. }
  52.  
  53.  
  54. //$ 26 - version number
  55.